(COMMENT BPS 15000. LIST 10000 SPECPDL 1000.)

(PROGN

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(ESCI-ENB)
(REQUIRE UTIL > DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
 T)